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-Sep-1 SYS.SRCJI GMAPISD -B32; (1) 
3 1 001 ZTITLE "MAP_ISDS = Convert ISDs to Mapping Requests’ ’ 
: ¢ 0 MODULE IMGSMAP_ISDS ( _—* : 
; Z 8 gPEnt = 'v04-001' ! File: SRC$:IMGMAPISD.B32 ; 
ae 005 1 BEGIN 
: ? 0007 i leuatenetenetentenenententnenneeerneterereerenttetrnntnnerentnnerenteneretts : 
; '® * 3 
3 g ais 1 !® COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 3 
; 10 010 1 !* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * : 
3 1 ae : :* ALL RIGHTS RESERVED + ; 
; ! * 3 
: ig ig 1 !* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND cortee * ; 
HY 14 014 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 3 
3 15 0015 1 !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFT * P 
; 16 0016 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * é 
4 17 0017 1 !« PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * : 
; 18 0018 is TRANSFERRED. & : 
3 ! * r 
; 20 0020 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTIC cf * 3 
3 21 0021 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * é 
; $$ B358 : - CORPORATION. = : 
: 24 o0S¢ 1 ie DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS ® : 
: 25 0025 1 !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * é 
:; 26 Boss 1 Ie * 3 
: 27 0027 1 !* * $ 
s $8 it ! aaa kth hk natal htc ictal : 
: $6 $080 1 ; 
; 3) ist i i*Pacilit : ; 
io. 0033 1 | bs : 
; $e Boe : Executive, Support Routines Used by Image Activator System Service : 
: 36 0036 | i Abstract: : 
; $ 0037 1! 3 
3 8 0038 1! This module contains the routines that transform each image section : 
3 4 ste ! descriptor into a mapping request for the process address space. ; 
aay < 0041 1 ! Environment: : 
3 $§ B066 @ 3 
3 a7 Boe7 1 : The code in this module executes in executive mode. : 
ae 045 1 ! Author: F 
:; 46 peg 1! 3 
; at 047 1! Lawrence J. Kenah 3 
: 48 BRee 1! 3 
; «649 049 1 ! Creation Date: 3 
3 0 320 1! 3 
; 1 3 4 6 May 1983 3 
3 § 8226 3 : 
: e7 Be? ' Modified By: : 
: 55 0085 1! v04-001 MSHO074 Michael S. Harv ey 6-Sep-1984 3 
; = 026 1! Don't open image file for ertes or ISDs that are F 
eee i 0057 1! global, writeable, and demand-zero, 3 
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; 8 0 1! : 
3 9 8g i! VO036-017 MSHO04S Michael S. Harvey 10-May-1984 ; 
: 60 60 1! Correctly set page protection {or indirect message : 
: 6) bes : sections. ; 
; 6 63 1 | V03B-016 MSHO044 Michael S, Harvey 9-May-1984 3 
; 64 64 1 } Correct page protection for protected writable CRF PF 
; o bee : sections. ; 
: 67 0067 1 | vO3B-015 LvK0281 Lawrence J. Kenah 9-May-1984 ; 
; 0068 1! Still more cleanup. Make sure that all unused ICBs are : 
3 9 80 9 1 deallocated when an error occurs in the middle of a : 
; £0 Baod ! complicated activation. : 
ee 0072 1! VO3B-014 LyK0269 Lawrence J. Kenah 31-Mar-1984 ; 
ee 0073 1! Miscellaneous cleanup. : 
; «674 0074 1! Do not perform fixups or load message or change mode vectors : 
ee | 0075 1! if this is the PO part of a P1 merge activation. . 
: 0076 1! Use flag in own storage to detect that situation. : 
; a Ad : Pages in privileged shareable image should be owned by : 
: 79 0079 1! Add privileged vectors in exec mode instead of kernel mode. : 
: eo pees : } Store alternate RMS address as part of kernel mode completion. : 
: 8 008¢ | i V03B-013 LJK0267 Lawrence J. Kenah 28-Mar-1984 ; 
ee 0085 1! Do not use name in ICB as global section name. Instead, use $ 
: ge pee : name in CTX storage that was loaded from the KFE. : 
: 86 0086 1 VO3B-012 LuK0265 Lawrence J. Kena 25-Mar-1984 ; 
: 44 a f4 : Add support for variable size ea elements. : 
..2a8 0089 1 | vO3B-011 ywT0152 Jim Teague 20-Feb-1984 : 
: + Bead ! Enlarge ISD_BUFFER to accomodate longer global ISDs. : 
oa 0092 1: V03B-010 wMC0001 Wayne Cardoza 23-Jan-1984 F 
eee 0095 71! age loading of sequential image files. 3 
: 94 4 : } Fix bug in based shareable images. : 
: 9% 0096 1 | V03B-009 LuK0245 Lawrence J. Kenah 23-Aug-1983 ; 
: +44 44 : Make user stack size a cumulative number. : 
: 99 0099 1! v03B-008 LJK0242 Lawrence J. K 2-Aug-1983 : 
: 190 Bigs : } Add support for writable global pe, 

: 106 O10 1/ VO3B-007 LJK0236 Lawrence J. Kenah 26-Jul-1983 

s 10 319 1! Add concept of image base address, different from first address 

: 4 Bie ! } that is mapped. Continue fixing bugs as they are found. 

° 4 . 

: 106 8198 1! VO3B-006 LJK0233 Lawrence J. Kenah 21-Jul-1983 

3 «(107 107 1! Try again to make the logic for P1 merges into PO space 

: 198 198 ' to work correctly. 

: 110 110 1! v03B-005 LJK0231 ence J. Kenah 19-Jul-1983 

: 1) iN ' Make areattens for global section mapping 

: 118 118 1/ V03B-004 LJK0227 Lawrence J. Kenah 12-Jul-1983 

3; 6114 0114 1! Continue with cleanup efforts and testing. 
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rewrite of the image activator. 


. 375 115 1! 

; 118 118 1! v038-003 LsKGe2o Lawrence J. Kena 29-Jun-1983 

s 41 11 1! Handle case where input range ts "onset 04a. Perform minor 
3 133 g118 ! } cleanup. Fix the many bugs discovered during testing. 

: 120 91 01 v03B-002 LJK0216 Lawrence JJ. Kenah 25-Jun-1983 

: ! 1 4 1 : : Make new IHD generation constant conform to standard names 
ee : 1 : 1 v03B-001 LJK0200 Lawrence J. Kenah 6-May-1983 

3 1 : 4 : : The original version of this module is a portien of a 

9 126 1! 

oA:% § 8188 1 


IMGSMAP_ISDS 
v04-001 
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Declarations 
1 ZSBTTL ‘Declarations’ 


PSECT 


LIBRARY ‘SYSSLIBRARY:LIB.L22'; 


REQUIRE Nat ered 4 AN te 
REQUIRE "LIBS: IMGACTCTX.R32'; 


! Machine dependent features 


BUILTIN 

PROBEW, 
INSQUE, 
REMQUE ; 


! Internal references 
FORWARD ROUTINE 


PROCESS _ISD_LIST 
ADD_PR VILEGED VECTOR, 


I 
ADD-FIXUP_VECT 
NAME 


NEXT_GBL_SEC 
LOAD"SEQ- IMAGE; 
LINKAGE 
EXE_ALOPIPROC = JSB ( 
EXE_DEAP1 = JSB ( 
IMG_IS_IT_MAPPED = J 


IMG_PRVSHRIMG = J 
PRESE 
NOTUSE 


~ ~ 
DBMNDBMNMKwDMNnD 
occmocmommonmm 


EXTERNAL ROUTINE 
EXESALOP1PROC x 
EXESDEAP x 
IMGSIS_IT_ MAPPED : IM 
IMGSPROSHR IMG : IM 


: EXE_AL 
: EXE_DE 
G_IS 
G_PR 


LITERAL 
TRUE = 1, 


CODE = YFSSSYSIMGACT ( 
PLIT = YFSSSYSIMGACT ( 


0 
A 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
: ! Linkage declaration for JSB routines 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
: 
! ! Constants to make Life simple 
1 
1 


wo 


74 
32; 


SWITCHES ADDRESSING_MODE (EXTERNAL = GENERAL, NONEXTERNAL = WORD_RELATIVE); 


WRITE), 
WRITE, EXECUTE); 


! Define system data structures 


! Get status code definitions 
! Define internal structures 


: NOVALUE, 


MoI a 


6 
{) 
REGISTER = 1) : 


é 
3 
z 
4, 
0 
= 
4 
-9,10,11); 
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! External routines with special Linkages 
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em ai a a a a et at a a od 2 = = = od So 


SYS.SRCJIMGMAP! 
—E = 0, 
S_PER_PAGE = ole 

_OF ACE = Xx'7hFRFFFE® 

“M_BISPATCH_FLAGS = (ISDSM_GBL ok ISDSM_CRF OR ISDSM_DZRO OR ISDSM_WRT); 
! External routine references 


exe ROUTINE 
IMGSOPEN yy rt 


ATE 
IMGSD“ALLOCATE_I¢B, 
IMGSGET_NEXT_ISD; 

!' References to external data cells 


EXTERNAL 
L$A_DISPVEC, 
L$GC_FIXUPLNK, 

“PHD 
C$GL—IMAGCTX : SBBLOCK, 
CSAL~IMGACTBUF, 
IAC$GL-WORK_LIST : VECTOR £23. 
IACSGL—~IMAGE_LIST : VECTOR (2): 


! Miscellaneous constants defined elsewhere 
EXTERNAL LITERAL 
EXESC_SYSEFN : UNSIGNED (6), 
SYS$K_VERSION; 


Some miscellaneous address definitions 


The first part of the image activator scratch area is divided up into two 
Largs jeces, each of which is further subdivided into a FAB, a ock 
a 5i2-byte block into which each succeeding block of the image header will 
be read, and a buffer that will receive the decoded image header. The 
decoded image header is assumed to be smaller than a page. The area that 
follows these buffers is used as OWN storage by the image activator. 


LITE 


RAL 
INPUT BUFFER S 
IHD_BOFFER_ST2 


BIND 


ZE = BYTES 
ES 


I _PER_PAGE, 
E = BYTES"PER~PAGE: 


INPUT_BUFFER = IACSAL_IMGACTBUF 

PRIMARY IHD = INPUT BUFFER + 5{2, 

AUX_BUFFER = PRIMARY IHD + 512, 

UX" THD = AUX_BUFFER + 512, 

PRIMARY_FAB = AUX~IHD * 

PRIMARY-NAM = PRIMARY_FAB + FABSK_BLN, 

AUX_FAB = PRIMARY-NAM + NAMSK"BLN, 

UX"NAM = AUX_FAB + FABSK-BLN, 

RESOLT_NAME = AUX"NAM + NAMSK"BLN 

OWN_STORAGE = RESOLT_NAME + NAMSC"MAXRSS : SBBLOCK; 


! There are eight pages set aside in P1 space (in module SHELL) for 


5 
BOOU-I5S ECLA gdeert 1800 te Maoson Reeenre Eerie Hasta dete AN fabal ffl roe of 


“ ¢§ 


43 473 1! the image activator scratch area. The following geounp ion guarantees 
n 


3 te the ! ! that the scratch area that is defined here fits into eight pages. 
; $06 ae THO-BOFFER ST ze 

Hy * 

; $3 P 0478 1 FABSK_BLN * 

3 26 P0479 1 NAMSK-BLN) ), 

; ey P 0480 1 ex 

; 251 0481 1 * BYTES_PER_PAGE ); 
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: ? } ZSBTTL "PROCESS_WORK_LIST = Process Each Work List Item’ 

: 255 1 1+ | 
; 5 i FUNCTIONAL DESCRIPTION: 

; 3 4 1 / This routine removes each work List item in turn from the work List, | 
; 1! ens the file if it is not gl reedy opened, and calls the inner routine 
; rs : that processes the ISD List for this image. 

: 26 91 1 § CALLING SEQUENCE: 

; ef 3 i IMG$D0_WOR T () 

$ 28 95 1 ! FORMAL PARAMETERS: 

: 9 i i TBS 

; $9 98 1: 

3 70 99 1 ! STATUS CODES: 

; e271 500 1! 

3 % 501 1! TBS 

: e7 5 ; 1 !=- 

: 276 0308 1 

: he b2 ¢ : GLOBAL ROUTINE IMGSDO_WORK_LIST = 

; 27 306 BEGIN 

3 a8 50 

; 508 LOCAL 

3 80 509 : REF SBBLOCK, 

; 81 510 OLD_ICB : REF SBBLOCK 

; Hy 511 NAME _DESC : SBBLOCK bbstsx_s BLN) 

3; 28 31 IHD_CTX : $BBLOCK CCTX_K7LENGTHS, 

; re 331? NAME _STRING : VECTOR CNAMSC_MAKRSS], 

: 86 0515 STATUS; 

ta! B28 

3 88 51 WHILE NOT REMQUE (.JACSGL_WORK_LIST , ICB) DO 

Pm ioe Be tos 

: 291 0520 STATUS = IMGSIS_IT_MAPPED (ICB CICBST_IMAGE_NAMEJ; OLD_ICB); 

; 3 0 1 IF .STATUS EQL SS$~NORMAL 

> 29% $8 IMGSDEALLOCATE_ICB (.1CB) 

: 3 2 $ & “7 BEGIN 

; 39 5 ¢ 4 

:; 298 5 4 !' The ICB is sqnodiotety placed into the done List. If an errer occurs 
; 299 5 3 4 ' Later in activation, the error cleanup routine will remove it, 

: 5 2 ! deassign the channel, and deallocate the I(B. 

: ? 5 IF NOT (.OWN_ STORAGE CP1_MERGE_PO}) 

; 3 é 2 INSQUE (.I1CB , .IJACSGL_IMAGE_LIST (1)); ! Insert at tail of List 
; 535 4 ! A nonzero channel number jept ies that the ICB represents the image 

3 5 4 ' whose name was passed to SIMGACT. This image file was already opened 
3 ; i ? ' by the caller and its header read and verified. 


; | 


$53 


—* 


ec A i i a i ee a i 


3 
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ver 
IST = Process Each Work List Item 14-Sep-1 SYS.SRCJIMGMAPISD.B 


: 


1 IF .1CB CICBSW_CHAN] EQL 0 
1 HEN 
BEGIN 
1 BIND 
i ICB_NAME = ICB CICBST_IMAGE_NAME) : VECTOR C, BYTE); 
1 1¢B CICBSL CONTEXT] = 1HD.¢ 
1 NAME _DESC [COSC$W_LENGTH “Nis n E £0; 
1 NAME DESC CDSCSA~ POINTER). = 1¢B- -NARE : 
STATOS = IMGSOPER_I 
DESC 
SDESTRIPTOR( SYSSSHARE: EXE"), 


AUX" NAM, 
NAME STRING, 
IF NOT .STATUS THEN RETURN .STATUS; 


! Use the auxiliary buffers when decoding the image header 
i from this point. 


IHD_CTX CCTX_L_BUFFER] = AUX_BUFFER; 
IHD-CTX CCTXL-IHDBUFJ = AUX_IHD; 


STATUS = IMGSGET_HEADER (.1CB); 
IF NOT .STATUS TREN RETURN .STATUS; 


MEUM $0 OONO VE WN OOONOAUE WN 


! Reserve ISD storage if image is loaded from soguens tol device 
i The allocation is for the worst case (all local ISDs) 


IF .1CB CICBSV_LOAD_IMAGE] 
THEN 


BIND. 
IHD_CTX = .ICB pigest = fONTENTI: soe OS 
IHD = .IHD CTX CCTX L_ IHOBUF) : $BB 
SIZE = 12 * (.THD cinDse. RDRBLKCHTA bd BYTES: PER_PAGE) / ISDSK gerne 
IF NOT EXESALOPIPROC ( .SIZE; SIZE, OWN_STORAGE CSEQ_LOAD_ISDS 
THEN RETURN SSS$_INSFRMERM; 
peer (0, .STZE, .OWN_STORAGE CSEQ_LOAD_ISDS) ); 
$T ans = PROCESS_ISD_LIST (.1CB); 
IF MOT .STATUS 
Mi WEN. 
BEGIN 


! Check for sequential load device and release ISD storage 
Ya CICBSV_LOAD_ IMAGE] 

EXESDEAP1 (.OWN_STORAGE CSEQ_LOAD_ISDS], .SIZE); 
RETURN .STATUS; 
END; 


PUPS fw 
LENS LSSELSALANASSSVS AFA LSSSISALERIS SSLSUREUN AS See nRun Oo 


Pv leah al ah ah Ab Ab Ab Ab Ab Ab Ab ah Ab Ab dh db db db bbe bebbehbchh bb tb th dh 4h th bh th 4h 4b ah db Ah dh Ab Ah ah ak el 
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ver 
IST = Process Each List Item 14-Sep-1984 SYS.SRCJI Saabs ts “B30, (3) 
! See if image should be loaded now 
a CICBSV_LOAD_ IMAGE) 
BEGIN 
STATUS = LOAD _SEQ_IMAG 


exes EAP1 (.00N Cranage tséace tons 180S], .SIZE); 
i Peratus THEN RETURN ast ATUS; 


Be Se Se ee Se ee SSH Se Se Ge Se Se Se Se ee Be ee 


END; ! End of “it is not yet mapped’’ block 
END; ! End of WHILE Loop 
RETURN SS$_NORMAL ; 
END; ! End of routine PROCESS_WORK_LIST 


-TITLE IMGSMAP_ISDS MAP_ISDS = Convert ISDs to Mapping 
; Requests 
-IDENT \v04-001\ 
«-PSECT YFSSSYSIMGACT,2 
45 58 45 2€ 3A 45 52 41 48 53 26 53 59 53 ea P.AAB: .ASCII \SYSSSHARE:.EXE\ ; 


8 
Q000000E 00010 P.AAA: LONG 14 ; 
00000006" 00014 ZADDRESS P.AAB 


.EXTRN EXESALOP1PROC EXESDEAP1 
-EXTRN IMGSPROSHRING IMGSOPEN_ IMAGE 
-EXTRN IMGS$GET_H EADER, INGSALLOCATES 1¢B 
eEXTRN IMCSSEACCO —_1¢B 


$GET neXt 18D 

$A DISPVEC. CTLSGL_F IXUPLNK 
$6r PND TACSGL_IMAGCTX 
AL INGACTBUF 


a 

wm 
= 
~ 
» 
z 
— 


2 

2 
TT es pe ee ET 
x>>>-“#- 3 
MOOoorra 


K LIST 
IMAGE _LIST 
pinay? SYSSK_VERSION 


a Save R2,R3,R4,R5,R6,R7,- 


AOD 
weg 


OFFC 00000 -ENTRY 0504 


A G00090096 00 $e 


0000 


m De 
ae | 
fh! 
DOG LDS LESSESS 


p= pee Ae | 
nt opm 
“” 


2 

a R10 

L_WORK_LIST, RO 
1CB 


Fo 
< 
FT 


D 

Mm 

= 

& 
Fh HOO 


0517 


-— | 
r— 


6 

OOFA 
50 14 =A 
; 000000006 3 
9 


; 0520 
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fe 


st Item 
01 7 CMP TATUS, #1 : 0521 
é te i tt iy : 0523 
000000006 00 FB ; CALL ff IMGSDEALLOCATE_ICB : 
08 D8 AA 0 00045 3$: BS #5, OWN_STORAGE, 4$ + 0531 
30 000000006 ; 4A OVAB LAESGL_ TRAGE LI§t+4, RO ; §2 3 
00 8 INSQUE ice) a0 (ROY : 
OE Ab 2 4$: Ist 1ecic6) + 0539 
58 Ab 84 AD A VAB  JHD_CTX, 88(ICB) + 054 
F8 AD 14 Ad 9B F MOVZBW OcTCB) NAME _DESC + 054 
FC OAD 15 Ad 9E 00064 OVAB (1CB); NAME “DESC +4 : 348 
56 bb 69 PUSHL ICB : 055 
94 AE 9F 00068 PUSHAB NAME_STRING + 0549 
FE79 CA YF $ PUSHAB AUX_RAM 3 
FEG9 CA OF PUSHAB AUX~FAB ; 
FrTB OAD OF OOO pUSIAR Ane bese 826 
000000006 9 6 FB 0007D CALLS a6, IMGSOPEN_IMAGE ; 
: DO 00084 MOVL RO. STATUS : 
2 3 087 BLBC STATUS, 8$ + 0556 
BS AD F979 «CA OSE 09 A MOVAB AUX_BUFFER, IHD CTX + 0561 
B8 AD FB79 cA 9E 00 MOVAB AUX"IHD, IHD_CTR+4 + 0562 
6 DD 009% PUSHL IC + 0564 
000000006 09 1 F 909 CALLS #1, IMGSGET_HEADER : 
3 0 DO 0009F MOVL RO STATUS ; 
6 7 € SOng BLBC STATUS, 12$ : 0565 
38 10 A6 04 £1 O000A5 5$ BBC #4, 16(1CB), 7$ > 0571 
20 58 Abd DO OOOAA MOVL BBC iC ), RO : 0575 
0 04 AO pO OOAE MOVL 4 (RO), RO ; 0576 
50 10 AO 9A 008 MOVZBL 16(ROS, RO : 057 
50 00001800 8F C4 00086 MULL2 #6144, RO ; 
58 50 10 C7 000BD DIVL3 #16, RO, SIZE : 
51 58 DO 000C1 MOVL SIZE Ri : 0578 
000000006 00 16 000C4 JSB EXE AL oP 1 PROC ; 
58 51 D BO0CA MOVL R1, R ; 
6A 38 DO 000CD MOVL §R2. OWN_STORAGE+40 : 
06 3 00D BLBS RO. 6$ ; 
50 0124 8F : 900 MOVZWL #292, RO : 0579 
50 6A 00 00D9 6$: MOVL.  OWN_STORAGE+40, RO : 0580 
58 00 bE 00 ¢ aor MOVCS #0,~(SP), #0, SIZE, (RO) : 
$2 DD 000E2 7S: PUSHL ICB : 0583 
0000v cf 1 FB 000E4 CALLS #1, PROCESS_ISD_LIST : 
7 y D £9 MOVL RO STATUS : 
OF E EC BLBS sTATUS $ > 0584 
27 10 AG 4 €1 EF BBC a4 6(1CB), 12$ ; 9990 
3 8 09 4 MOVL SIZE, R : 059 
0 6A D F7 MOVL OWN STORAGE+40, RO ; 
ee 16 FA JSB EXESDEAPI ; 
D 1 FC 8s BRB 2 ; 0594 
03 10 Ab 4 59 re BBS #4, 16(1CB), 11% : 0599 
FFOF 10$ BRW 1$ : 
6 DD 00106 11$ PUSHL ICB + 0602 
0000v CF 1 FB 001 CALLS #1, LOAD_SEQ_IMAGE : 
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; Routine Size: 


MAP_ISDS = 
PROCESS WO 


291 bytes, 


Convert ISDs to Mapping Requests 1 
WORK_LIST = Process Each Work List Item 1 
7 D 1 
H a8 DO oor) 
0 6A 9 11 
11 
EB E 11 
B 11B 1 
4 OO11E 
50 01 B0 11F 1 
4 00122 


Routine Base: 


YFSS$SYSIMGACT + 0018 


53 
6- 4 =138¢ Og: 4) 36 AX=11 Bliss-32 V4.0-74 


SYS.SRCJIMGMAPISD.B32; 
RO, STATUS 
OWN STORAGE +40, RO 
EXESDEAP 
STATUS, ios 
goa R 


1, RO 


Ss | 
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4 
v04-001~ P S_ISD_LIST = Convert Eac nto Mappin 14-Sep-1 SYS.SRC MAPISD.B32; 
: ar } ZSBTTL 'PROCESS_ISD_LIST = Convert Each ISD into Mapping Request’ 
3 58 018 } ROUTINE PROCESS_ISD_LIST (ICB_PTR) = 
; 390 618 1 !+4+ 
3 4! °) : FUNCTIONAL DESCRIPTION: 
; ay ocr 61 CU This routine converts each ISD in the current image into werein 
: 394 be ¢ 1! requests to one of the memory management system services. Globa 
; 395 6 1! ISDs are converted into new work List items to be processes at a 
4 38 pe : ! } later time. 
; 398 Oe 6 1 ! CALLING SEQUENCE: 
; 399 627 1! 
; 400 0628 1! PROCESS_ISD_LIST (ICB pointer) 
: 401 0629 1! 
; 40 0650 1 ! FORMAL PARAMETERS: 
; 40 0631 1! 
; 404 06 § 3 TBS 
; 405 06 1! 
; 406 0634 1 ! STATUS CODES: 
; 407 0635 1! 
; 408 0636 1! TBS 
; 409 0637 1 !-- 
; 410 0638 1 
: 6411 0639 BEGIN 
3 ra 0640 
; (41 0641 BIND 
3 414 Rog 2 IcB = .I1CB_PTR : SBBLOCK, 
3 «415 064 KFE = .1CB dings : $BBLOCK, 
; 416 0644 IHD_CTX = .I1CB CICBSL_CONTEXT) : SBBLOCK, 
; 417 0645 FLAGS = OWN_STORAGE CINPUT_FLAGS] : SBBLOCK; 
; 418 0646 
; 419 0647 LOCAL 
; 420 0648 2 SEQ_ISD : REF VECTOR CI, 
: 421 0649 § GBL_ICB : REF SBBLOCK 
; rh 3 0650 INITIAL (0) 
: 4 0651 : ISD_BUFFER : $BBLOCK CISOSK_MAXLENGLBLJ, 
: 424 b63¢ ISD : REF S$BBLOCK 
: 425 065 INITIAL (0) 
> 426 0654 GLOBAL_SEC_NAME_DESC $BBLOCK COSC$K_S_BLNJ, 
: 427 0655 MAP_BASE_ADDRESS, 
: 428 8028 ISD_BASE_ADDRESS, 
3 $62 802 PAGE_COURT 
: 430 38 INPUT_RANGE : VECTOR (2), 
: 431 065 RETURR_RANGE : VECTOR ° 
3 $36 660 ACCUMUCATED_RANGE : VECTOR 
3; 43 661 INITIAL (0,0), 
3 $32 666 SECTION_FLAGS 
3; 435 66 BASE_ADBRESS STORED INITIAL (FALSE), 
: ry 664 FIRST_MAPPING INITIAL (TRUE), 
; oer 665 ATUS; 
3; 439 oes !' A base address is selected that will determine the actual range passed to 
: 440 O08 ! the various mapping requests. If the ICB contains an explicit base address, 
3 6441 $6 ! that address is used. Otherwise, the address following the last mapping 
3 442 670 ! request is used. Note that this latter situation includes the case where 
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> 443 671 ! no input range is specified for the activation of a main progren. Because 
> 444 of¢ : the CHECK PARAMS routine sets RETURN_END_RANGE to FFFFFFFF, this logic 
; ret th ! chooses 0°as MAP_BASE_ADDRESS. 
: 409 675 MAP_BASE_ADDRESS = ( 
; 448 of8 IF .ICB CICBSV_EXPREGJ 
>; 449 67 THEN 
; 450 of8 -OWN_STORAGE CRETURN_END_ADDRESS) + 1 
; 451 067 ELSE 
: 128 pogo -I1CB CICBSL_STARTING_ADDRESS)); 
> 454 6 ¢ ! Remember where ISD storage is for a sequential device load 
3 rH ? ? ! The storage location is meaningless in all other case 
; 437 ee SEQ_ISD = .OWN_STORAGE CSEQ_LOAD_ISDS)]; 
> 459 0689 WHILE TRUE DO ! Idiom for DO FOREVER 
; 460 0688 
; 461 0689 BEGIN 
: 46 0690 
; 46 0691 ! If the header is resident, then it is not necessary to decode the ISDs 
3; § 069 ! as that has already been done. For images where ISD decoding is 
; 465 069 ! required, the context passed from IMGSDECODE_IHD to IMGSGET_NEXT_ISD is 
3 788 bee ! contained in a context block located through an ICB pointer. 
; 468 069 3 IF .1CB CICBSV_RES_HEADERJ 
; 469 069 THE 
: 470 0698 4 BEGIN 
; «471 0699 4 
; 47 0700 4 BIND 
3; 47 0701 4 IHD = .KFE CKFESL_IMGHDR] : SBBLOCK; 
: 474 44 4 
3; 475 0703 5 ISD = (IF .ISD EQL 0 
: 476 0704 5 THEN IHD + .IHD CIHD$W_SIZEJ 
3; 477 0705 4 ELSE .I1SD + .I1SD CISO$Q_SIZEJ); 
3; 478 0706 4 
: 479 0707 4 ' The next test is the loop breaker for the resident header case. 
3 $30 fai: 2 ! An ISD size of zero indicates the end of the ISD List. 
: 48 0710 4 IF .ISD CISD$W_SIZE] EQ. 0 
: 48 0711 4 THEN 
3: «484 Brig : BEGIN 
3; «64485 071 
: $56 gore ! Update the address range in the ICB with the accumulated 
3 rt ot ! range into which the image was mapped. 
: 489 6719 5 ICB CICBSL_STARTING ADDRESS] = .ACCUMULATED_RANGE (0); 
3 rhs gets ; 1CB CICBSL-END_ADDRESS] = .ACCUMULATED_RANGE (1); 
; 49 4 0 RETURN SS$_NORMAL 
; 49 721 4 END; 
3 494 7 ; 4 END 
: 495 7 3 ELSE 
; £36 724 4 BEGIN 
; 49 725 4 
; 498 7 § 4 STATUS = poesert NEXT_ISD ( 
3; 499 07 4 -1CB CICBS$SW_CHANI; 
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test is the loop breaker in the case where we are 

t checks on the ISD contents as we go er ene. The 
-NEXT_ISD returns a status of IMG$_ENDOFHDR when it 
dof the ISD List. 
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routine IMGSGE 
reaches the en 


IF NOT .STATUS THEN 
_ EQL IMG$_ENDOFHDR 


N 
BEGIN 


! Update the address range in the ICB with the accumulated 
! range into which the image was mapped. 


ICB CICBSL_STARTING ADDRESS] = .ACCUMULATED RANGE [0]; 
1CB CICBSLIEND_ADDRESS) = .ACCUMULATED_RANGE (1); 


RETURN SS$_NORMAL 
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ELSE 
RETURN .STATUS; 


ISD = ISD_BUFFER; 
END; 
The common mapping parameters are computed from the ISD contents and 


previous mapping context and stored in a suitable place for use by the 
various memory management system services. 
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The set of addresses that are passed to the various memory 
management system services depend on the kind of image that is 
being activated, and the kind of ISDs that exist within these 
images. The various cases are described in an approximate order 
of occurrence. 
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1. New shareable images that are not based (that is, they 
are PIC and based at zero) have the ISD addresses added 
to the highest address previously mapped. 


2. New based shareable images use the addresses contained 
in the ISDs. 


3. When processing old shareable images, the addresses 
contained in the ISDs of the main progres are taken at 
face value. If the “last cluster’ flag is set, the end 
address is set to 7FFFFFFF to disable all upper Limit 
address checks. Note that the last cluster flag is 
ignored in new shareable images. 
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1!! NOW THAT I HAVE THIS WONDERFUL COMMENT, I OUGHT TO MAKE THE CODE 
!!! BEHAVE THE WAY THAT IT*S SUPPOSED TO. 
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7 785 
55 ? § PAGE COUNT = ,ISD CISD$W_PAGCNT); 
? IF .PAGE_COUNT EQL 0 THEN RETURN SS$_BADISD; 


SSSI 
a 
oO 
~ 
oo 


: 20) a3 ISD_BASE_ADDRESS = ((.1SD CISD$V_VPG]) * BYTES_PER_PAGE); ‘ 
; 68 791 IF NOT .BASE_ADDRESS_STORED : 
; 564 79 THEN : 
; 565 793 4 BEGIN : 
; 566 794 4 ; 
3 Ser 795 4 ! Renormalize the base address for merged activations and for all “ 
; 208 078 ? ! I1CBs that represent implicitly referenced shareable images. : 
; 2/0 184: 2 If .1CB CICBSB_ACT_CODE] NEQ ICBSK_MAIN_PROGRAM : 
; 278 9800 4 MAP_BASE_ADDRESS = .MAP_BASE_ADDRESS - .1SD_BASE_ADDRESS; : 
> 374 0802 4 : The base address stored in the ICB is used by SIMGFIX to perform ; 
s S79 0803 4 ! address relocation fixups. The transfer address bias is used to : 
; 5376 0804 4 ! adjust transfer addresses that Lie within the bounds of an image's : 
; AE Baye . ! address space. : 
; 579 0807 4 1CB_CICBSL_BASE_ADDRESS] = .MAP_BASE_ADDRESS + .ISD_BASE_ADDRESS; ; 
: eBy ti ? BASE_ADDRESS_STORED = TRUE; ‘ 
; 286 0810 4 IF NOT .OWN_STORAGE CTRANSFER_BIAS_STOREDJ ; 
a. 0811 4 THEN : 
; 584 oals 5 GIN : 
> 585 081 5 OWN_STORAGE CTRANSFER_ARRAY_ BIAS] = .MAP_BASE_ADDRESS; : 
; 586 0814 5 OWN-STORAGE CTRANSFER_BIAS_STORED] = TRUE: : 
; 587 0815 4 END; ‘ 
; 388 p318 END; ° 
; «589 081 : 
; 590 0818 INPUT_RANGE £0} = .MAP_BASE ADDRESS + .I1SD_BASE ADDRESS; : 
3 ea) 3h INPUT-RANGE C1] = .INPOT_RANGE [0] + ((.PAGE_COONT * BYTES_PER_PAGE) = 1); : 
: 298 0821 CASE .ISD CISD$L_FLAGS) ! Form case index from low four : 
; 594 08 § ! bits of the ISD flags longword : 
; 595 be SD_M_DISPATCH_FLAGS ; 
: 596 824 FROM 0 TO TSD_M_DISPATCH_FLAGS OF : 
3 97 0825 : 
; 598 0826 SET : 
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e Address Space for Demand-Zero ISD Sep-1 
ZSBITL ‘Create Address Space for Demand-Zero ISD' 
CISDSM_DZRO OR ISDSM_WRT , ISDS$M_DZRO OR ISDSM_WRT OR ISDSM_CRFI: 


SYS.SR 


: The section is a demand-zero section. The pages are created at the 
! current end of the image. 


BEGIN 
ae CISDSB_TYPE] NEQ ISD$K_USRSTACK 


DR = INPUT_RANGE 


RANGE 
CMODE = .OWN STORAGE CACCESS_MODE) ): 
if NOT .STATUS THEN RETURN .STATUS; 


LSE 
OWN_STORAGE CUSER_STACK_SIZE]) = 
-OWN_STORAGE CUSER_STACK_SIZE] + .PAGE_COUNT; 


4 

4 

4 

4 

BEGIN 
; signa: SCRETVA ( 
5 

4 

4 

4 

; END; 
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ZSBTTL ‘Create or Map Address Space for Private ISD’ 
CISDSM_CRF OR ISDSM_WRT , ISDSM_WRT , 01: 


The section is a private section that will be mapped into the process 
address space. The section may be read only or writable. ag Oe 
sections may either be global sections or private sections. Writable CRF 
sections are always created as private sections. Writable sections that 
aS aoe Snee copy on reference are always mapped as global global 


BEGIN 

LITERAL SEC_M_EXEC_OWNED = PSLSC_EXEC * SBITPOSITION (SECSV_WRTMOD); 
! If the SHAREABLE bit is set in the ICB, then global sections were 
! created for the Sel | sections of this image. These global 

' sections can be mapped. In other cases, privat? sections are 

' created. 

SECTION_FLAGS = (.1SD CISDSL_FLAGS] AND ISD_M_DISPATCH_FLAGS); 


! If the section is marked protected, then the ownership and 
! writability of the section pages is restricted to exec mode. 


IF _<18D CISDSV_PROTECT] 
SECTION FLAGS = SECTION FLAGS 
SECSM_PROTECT 
SEC_M_EXEC_OWNED; 


,1cB CICBSV_SHAREABLE] 
((NOT .ISD CISD$V_WRT)) 
ten 7252 CISD$V_WRT] AND NOT .ISD CISD$V_CRFJ)) 
BEGIN 


BIND 
GSD_NAME = IHD_CTX CCTX_T_GSD_NAME] : VECTOR C, BYTE); 


GLOBAL_SEC_NAME_DESC COSCS$W_LENGTH] = .GSD_NAME £0} + 4; 
GLOBAL _SEC_NAME_DESC COSCSA_POINTER] = GSD_NAME [1]; 


NEXT_GBL_SEC_NAME (GSD_NAME); 


PUPP III UTI SUI BB EPP PPP PPP PPP PPP PPE 


STATUS = SMGBLSC ( 

INADR = INPUT_RANGE , 
RETADR = RETURR RANGE 
ACMODE = .OWN STORAGE CACCESS MODE) , 
FLAGS = (.SECTION FLAGS OR SECS$M_GBL OR SECSM_SYSGBL) , 
GSDNAM = GLOBAL SEC _NARE BE ‘ 
IDENT = ICB CICBSQ~IDENT) ); 

906 IF NOT .STATUS THEN RETORN .STATUS; 


a a a a a ee ee ee eee 
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Create or Map Address Space for Private | SYS.SRCJIMGMAPISD.632; 
; 681 907 5 END 3 7 
; 6 ¢ 9 4 ELSE 3 7 
: 6 3 BEGIN i] 
: 685 911 ! Private copies of writable sections that are not also copy on :1 
: ? a6 ! reference are prohibited. : } 
: 688 a4 IF .1SD CISDSV_WRT] AND NOT .1SD CISDSV_CRF] i] 
: $90 916 RETURN SS$_NOTINSTALL; i] 
: 69 a8 ! Check for loading from a sequential device before deciding : 1 
: o37 + ! whether to map the section or simply record the load data : : 
: 695 921 IF NOT .1CB CICBSV_LOAD_IMAGE) 31 
3 24] 9 § THEN 31 
: 69 9 6 BEGIN 3 1 
; 698 P 0924 6 STATUS = SCRMPSC ( 3% 
H 344 P 0925 6 INADR = INPUT_RANGE , 3 7 
P 00 P 09 $ 6 RETADR = RETURR_RANGE 7 
: 701 P 0927 6 ACMODE = .OWN STORAGE CACCESS_MODE] , 31 
; 70 p 2 8 6 FLAGS = “SECTION FLAGS , 3 7 
: 70 P0929 6 HAN = .1CB CICBSW_CHAN) , 31 
; 704 P 94 0 6 PAGCNT = .PAGE_ COUNT , 3% 
; 705 P 0931 6 VBN = =_~. ISD FISDSL_veN 3 3 
; 206 9 ; 6 PFC __= .I1SD CISD$B-PFC] 5; 31 
: 10 933 6 IF NOT .STATUS THEN RETURN .STATUS; : 
: 709 939 ELSE : 
: 711 09 $ ! Record size of image section, starting address, and flags ; 1 
: re 09 $ 3 | Advance pointer for the next ISD : : 
: 714 0 6 BEGIN : 1 
. 27 2-S SEQ_ISD (OJ = .PAGE COUNT; 3: 7 
; ig ¢ 6 SEQ-ISD (1) = . INPUT RANGECO); 31 
; 71 6 SEQ-1SD C2) = .ISD GTSDSL_FLAGSI; 3:1 
; 718 4 SEQ_ISD = SEQ_1SD (3); 3 
: 7M 2 END; - 
: 721 5 ! If the section just mapped is a fixup vector, then it must be 3 7 
oe ; 8 ' verified and added to the List of fixup vectors. Note that the 3 7 
> £ 9 ' placement of this code assumes that fixup sections can never be 3 7 
; 724 9 ' shared. That is, they are always writable CRF sections. 3 
a , i 
ig ; 38 ; (.1SD CISDSV_FIXUPVEC)) i] 
; , 33 3 (NOT (OWN STORAGE CP1_MERGE_POI)) : 
; 231 3$ THEN 3 
: 7 § 38 ! If the image being mapped is : privileged shareable image, 71 
WD. ' then perf rm the Vnups aned ately in exec mode. Otherwise, 3} 
3; 735 ! od¢ the fixup vector to the List of fixups to be done. ‘4 
3 4 § ! This work is delayed for images loaded from sequential devices : } 
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; 7 ; if -I1SD CISDSV_PROTECT) 

=. 2 HEN 

3 74 STATUS = ( 
; 74 F 

; 7 BEGIN 

: 74 i (KFE EQL 0) 

: 746 HEN 

; 745 TRUE 

> 74 ELSE 

; me 5 NOT (.KFE CKFESV_PROTECT] AND .KFE CKFESV_SHARED]) 
5 Pe8 THEN 

ee. SS$_PROTINSTALL 

> ia LSE 

ES ¢ 6 IMGSPRVSHRIMG ( 

YS. 6 »RETURN_RANGE, 

; g : ese -1CB CICBSL_BASE_ADDRESS])) 

7 $ IF NOT .ICB CICBSV_LOAD_IMAGE] 

3 Lf} THEN 

; 758 STATUS = ADD_FIXUP_VECTOR ( 

; iv RETURN_RANGE 

: 760 .1CB CICBSL_BASE_ADDRESS)); 

: 761 IF NOT .STATUS THEN RETURN -STATOS 

3 re ? END; 

; 766 & ! At this point, we need to check whether the section just mapped 
; 765 & ! is @ message section or a vector section. We need to r the check 
Ee . 4 ' here because, while vector sections can only be global sections, 
: 76 4 i message sections can be either private or global. 

3 ros 2 ! This work is delayed for images loaded from sequential devices 

; 770 5 IF ¢ 

3 44 3 (.1SD CISD$V_VECTOR]) 

: 46 : g (NOT (.OWN_STORAGE CP1_MERGE_PO])) 

: 775 1001 4 THEN 

3; 77 1 g 4 IF .ISD CISD$SV_PROTECT] 

s 7 1 4 THEN 

s a 1 BEGIN 

> a 1005 IF NOT .ICB CICBSV_LOAD_IMAGE] 

a i 1 THEN 

; «781 1 6 BEGIN 

me. 1 6 STATUS = ADD PRIVILEGED VECTOR (RETURN_RANGE (0), ICB); 
; i ' +4 ; IF NOT .STATOS THEN RETORN .STATUS 

: 785 1011 END 

. 1 \§ 4 ELSE 

2 1015 4 RETURN SS$_BADISD; 

i 4 1918 3 END 

3 50 1016 3 
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ZSBTTL ‘Add ICB to Work List for Global ISD' 
CISDSM_GBL, ISDSM_GBL OR ISDSM_WRT, ISDSM_GBL OR ISDSM_WRT OR ISDSM_CRF, ISDSM_GBL OR ISDSM_WRT OR ISDSM_DZR 


This is a gtobel SD. An entry will be made in the work List and the 
actual mapping will occur in @ Later calt to this routine. A check is 
made to determine whether we are process ng a list of giodet 180s of 
the same name. This is done by comparing the name in the global ISD 
with the name in the most recently allocated ICB. 


0-74 
p-1 SYS.SRCJI 1S0.832; 


BEGIN 
BIND 
ISD_NAM = ISD CISD$T_GBLNAM) : VECTOR C,BYTE); 
LOCAL 
1CB_NAM : REF VECTOR C,BYTE); 
BEGIN 
IF (.GBL_ICB EQL 0) 
THEN TRUE 
BEGIN 
1CB_NAM = GBL_ICB CICBST_IMAGE_NAME); 
CHSREQ 
.1SD_NAM £03 - 4, ISD_NAM (1), 
-1CBINAM C0}, I1CB_NAM™C1J, 0) 
END 
END 
THEN 
BEGIN 


STATUS = IMGSALLOCATE_ICB (GBL_ICB); 
IF NOT .STATUS THEN RETURN .STATUS; 


GBL_ICB CICBSB_ACT_CODE] = ICBSK_GLOBAL_IMAGE_SECTION; 

ICB_NAM = GBL_ICB CICBST_IMAGE_NAME]; 

! Move the section name including the count and the 

! trailing _00n into the ICB. Insert the ICB at the tail of the 

' work List. Subtract four from the count so that the _00n prefix, 
! while present in the ICB, is not represented in the count. 


CB_NAM CO) = .ISD_NAM [0] - 4; 
(HSAOVE 71 sD fan 0), T$0_NAR C1}, ICB_NAM (1)); 


GBL_ICB CICBSL_MATCH 3 eet = .1SD CISDSV_MATCHCTLI; 
ne ICBSL-VERSION) = .1SO CISO$L_IDENTI; 


(IHD _CTX CCTX_W_GENERATION] GEQU IHDSC_GEN_F IXUP) 
Not (180 C1SDS$V_BASED)) 


BEGIN 
GBL_ICB CICBSV_EXPREG) = TRUE; 


a 


ISDS MAE-HERSs Convery t9Rs te tanptng, Requests He-stertgee O8:4):3  YAMCTE OU nsedZ Ys eg Seed vos 


-1¢B atittes “END ADDS ADDRESS] = 0; 
CBSLTEND_ADDRESS) = END_ “OF -P1_ SPACE; 


— 

3 

-v 
) 


2 


¢ sf L_STARTING Ressge = .INPUI_RANGE (0); 
pte 13b8V- rah 
INPUT RANGE 1); 


INSQUE (.GBL_ICB , .IACSGL_WORK LIST (13); 


ELSE 
BEGIN 


! This is another global ISD of the same name. Some consistency 
! checks are per Teraee on the address range. The address range 
i stored in the ICB may change. 


IF (. INPUT RANGE [CO] LEQU .GBL_ICB CICBSL_STARTING_ADDRESSJ) 
THEN RETURN SS -BADISD; 


IF, GBL1CB CICBSL_END ADDRESS] NEG END_OF _P1_SPACE 
BEGIN 


IF (. INPUT_RANGE [0] LEQU .GBL_ICB CICBSL_END_ADDRESSJ) 
THEN RETURN SS$_BADISD; 


Get 1CB CICBSL_END_ADDRESS] = .INPUT_RANGE (1); 
END; 
! If a global ISD has the WRT flag set but the CRF and DZRO bits clear, 
! this indicates a writable global section. A flag is set to indicate 
! that the image file should be opened for write access. 
4! CISDSV_WRT] AND NOT (.1SD CISDS$V_CRFJ] OR .ISD CISD$V_DZRO)) 
GBL_ICB CICBSV_OPEN_FOR_WRITE] = TRUE; 


END; 


Oe a a at a 8 tb 4 a as a 4 a a 2 a ss 4 tt 
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IMGSMAP_ISDS § MAP_ISDS = Convert ISDs to Mapping Requests 16- ep-1984 02:41: AX-11 Bliss-32 V4.0-74 Pa 2 LMG 
v04-001 Updite return eddress arrays e-8ep= 188 F8;93:88 | HNS SaPhAaaab 45-8354 at 5) vO4 
BS ! ZSBTTL ‘Update return address arrays’ 
38 CINRANGE): 
4 § ! An unrecognized combination of flags exists in this ISD. Because the 
' Linker would never procuce such a combination, this is either not an 
: : ! image file or some tampering has occurred. 
¢ § RETURN SS$_BADISD; 
B88 : TES; 
306 ! Update the address range arrays in the ICB and in impure storage. 
90 1 ! The latter may be returned to the caller and represents the total 
aos ¢ address space mapped in this activation. 
i Note that the tolloving conditional update works correctly because 
5 } ALL of the nonglobal ISDs and NONE of the global ISDs result in 


mapping requests. 
IF NOT .1SD CISD$V_GBLJ 
THEN 


ee i eee 
aa a mt a a a ts a a en a st st = a a a 1 
ee a ad a a od = dd de 8 a a 8 a a 4 


910 
, 1 
318 
914 8 
5 9 
S 40 4 BEGIN 
3 41 4 IF .FIRST_MAPPING 
9 8 og 4 THEN 
9 4 BEGIN 
920 44 FIRST _MAPPING = FALSE: 
921 45 ACCUMOLATED_RANGE [0] = .RETURN_RANGE (0); 
Bh 7 seen 
3 $8 2 cee CRETURN_START_ADDRESS] EQL -1 
3 § 20 ‘ OWN_STORAGE CRETURN_START_ADDRESS] = .RETURN_RANGE [0]; 
: ; 5 2 ACCUMULATED_RANGE [1] = .RETURN_RANGE (1); 
; 54 2 IF .RETURN_RANGE [1] GTR .OWN_STORAGE CRETURN_END_ADDRESS) 
§ 2$ 2 OWN_STORAGE CRETURN_END_ADDRESS) = .RETURN_RANGE (1); 
4 END; 
935 bh] 
9 $9 END ! End of DO FOREVER Loop 
+4 62 END; ! End of routine PROCESS_ISD_LIST 


~-EXTRN SYSSCRETVA, SYSSMGBLSC 
-EXTRN SYSSCRMPSC 


2,R3,R4,R5,R6,R7,RB,RO,RIO,R11 


WORD Save R 
sf FFB. CE 3 ROVAB = 136(SP5, gp 
4 OAC OD MOVL JCB PTR, R 
10 AE 4 AB OD MOVE (RB) 16(SP) 
SA 8 AB DO 0001 MOVE  8B(RB). RIO 


a ee ee ee eee 


p. s- o Page 3 14G 
:4 AX-11 BLi $532 2 v4.0 743 & 196 
- Convert ISDs to Mapping Requests as OVS SRETIMEMAPISD O32, 
Vouroor Seale beeete niatens arrays -Sep-1 1382 9 13: 73 ; : 
a» HM UB ace , : 
¢ ATED_RANGE +4 : i} 
C he CLRL OA COMUL TED RANGE ; : 
te oo» Ue ah Baan fon) | 
0006 8 = pj eS rite Fie OWN. STORAGE+88, MAP_BASE_ADDRESS ; 0678 
rahe 4 Ns i 1$: BOVE $5 cra) MAP_BASE ADDRESS ; 80 i | 
18 ef 000000086 09 3: MOVL ie SEQ_1 ; 
- oie age 6 - TSTL 136 070 
ae Site ibe soc taro] | 
" " f $f fc MOVZWIL : ants Ro ss 
RO" § i aay at dO ; ; 
< 0 i BRB 8 tenes 
0 $ 4$ MOVZWL (18D) « RO ; 2 
29 3 C ADDL2 RO, 18D pene : 
g B S$ TSTw (18D) ; : 
# | a gulf 
48 iE oF 6$: PUSHAB ISD BUFFER ; 
AA 9F PUSHAB 12(R10) 7 
a8 an OF Avo Faroe. ~(SP) + 0731 
7E 6A 7D ; 10). =(SP), 
3 = £ HS Case i. IK méSGET _NEXT_ISD ; 
mentee ae 30 08 pone |e vkros OS i 0759 
aF ax 6 P. TATUS, #139298368 ; 
08408640 8F 14 5 i CPL nt : 
48 «AB 28 aE i ; 7$: hove ACCUMULATED_RANGE. 72(R8) ; O747 
a 4 : ¢ oP $: AOVAB SD BUFFER, ISD ; 0755 
3 0 iS Hi o: MOV ZL a¢i8b), PASE_COUNT 786 
028d 3 BRW if. ae 
10$ EXTZV #0, #23, 4(1SD ; 
oO HA 6 } r 1$D_BASE Moor 
20 7 30 C 03 ? BLBS BASE RROD DRESS. STORED, 533 ; 791 
84 D OA 5 CHP 13(RB), a ea ; 
: ADDRE F 
4: 8 ME : ROBES TSD-BASETADDRE SS. Rape BASE-ADDRESS, 92(R8) 607 
= « 13 Of 5 shoat MOVL hhonBA BASE ADDRESS _s] RED : 98d 
" annie % ‘ b vL Rib BASE-ADORESS, OWN_STORAGE +24 8 
BISB2 #167 - : ete 
8 AE a 6E 20 AE C 128: ADDL 1SD BASE TADDRESS, MAP_BASE_ADDRESS, i 
50 56 09 78 ASHL 9, PAGE COUNT , RO ; 081 
38 OA ADDL2 I - 
3c OE FF Ab SF VAB NROy. INPUT_RANGE 


| 
| 
2 


IMGSMAP_ISDS MAP_ISDS = Convert ISDs to Mapping Requests 
pets pping Req 


Update return address arrays base set 7 96: 1}; oY5 SRE dIme Snabi Sb: D.B 933: tesa & 


1 
1 
8 08 ao 9 F MOVAB Sp) R11 ; 
7E 4 E f3 XTZV a, mu -(SP) : oes 
oF 0 E CF FE ASEL ($F) My wis : 
64 1 F 13$: WORD } $-1 3f?. : 
4 64 264 64 10A -13$;- : 
0 AF 9 4F 112 46$-13$.- : 

264 20 19 20 11A 4 $-1 $.- 3 
46$-13$.- : 
46$-13$.- ; 
ta $,- : 

} $-13$.- : 
6$-1 $\- : 
18$-13$.- : 
36$-13$.- : 
14$-13$.- ; 
36$-13$.- ; 
14$-13$.- ; 
46$-1 $ ; 
FD «soGF 0B a9 1 001 3 148: cMPB 11180), , #253 ; 0836 
000000906 06 pd 001 9 PUSHL OWN STORAGE+100 + 0842 
4 AE 9F OO12F PUSHAB RETORN_RANGE ; 
AE 9F 001 é PUSHAB INPUT RANGE : 
Prert: Oe 85 09 S18? 158, fore ae’ fate 
oat Be BE ins. th _ 
000000006 00 02% C0 00147 168: ADDL2 PAGE. COUNT, OWN_STORAGE+28 ; 084 
1c «AE 68 04 09 EF ap 18$:  EXTZV #0, #4, (R11) SECTION_FLAGS : 086 
1C AE 00040040 8F C8 001 BISL2 #26 $5208 te FLAGS : $87 
be ~ oe tt a Oa Sg : O88 
45 68 1 £0 016 § #i. (R11). ; : $88 
40 AE 14 AA 58 0175 208: movz W 20(R10), GLOBAL, SE SEC C_NARE DESC ; 089 
44 AE 15 AA 9€ 00179 VAB atinid). GCOBAC. ete “NAME _DESC+4 : 089 
14 AA OF Wve PUSHAB 20(R10) : 089 
0000v CF Qi FB ; CALLS #1, NEXT GBL_SEC_NAME —_ 
40 AS 9F 001 PUSHAB 64(R8) : 
48 AE 9F 001 PUSHAB GLOBAL _SEC NAME_DESC : 
7E 28 «AE 9000800 F ¢9 001 5 BISL3 #32769, SECTION-FLAGS, -(SP) : 
000000996 PP BP ErIey Pull BPMapnOnA 21 : 
50 AE OF 189 PUSHAB INPUT RANGE F 
000000006 00 ; i 1AS ne CALLS a, STSSHGBL sc ; 
14 cogs F, 1A ; BLBC STATUS, Wes 0906 
E1 00185 22$: BBC i (RIN), - 335 > 0914 
1 £0 001B BBS gril) $ : 
2014 =F ic te MOVZUL ; 0916 
04 €0 001C3 238: BBS #4, ea: 25$ : 0921 
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v04-001 Update return address arrays 18: ~Sep- 1382 94: 13; 8 SYS.SRCJIMGMAPISD.B32; . 
7E 07 Ad 9A 001C8 MOVZBL 7(1ISD), =(SP) ; 
43 D4 001CC CLRL == = (SP) : 
OC Ad dD OOIC PUSHL 12(1SD) ; 
36 D 0010 PUSHL PAGE_COUNT : 
7E OE A8 3C 001D MOVZWL 14(RB), =(SP) : 
7E ¢ 1D CLRQ = =(SP) : 
KE Bp Soips BUSHL SECTION. F : 
000000856 06 D 1DE PUSHL OWN STORAGE 100 : 
58 AE OF OO1E PUSHAB RETORN_RANGE : 
64 AE 9F O01E7 PUSHAB INPUT RENCE ; 
000000006 00 of FB OO1EA CALLS #12, SYSSCRMPSC F 
14 AE DO OO1F1 MOVL RO, STATUS : 
1¢ 14 AE : 175 BLBS status, 6$ : 
00 1 00169 48: BRW : 
18 BE 6 dO OIF 5$: OVL_ PAGE_COUNT, @SEQ_ISD : 
50 18 AE 4 ¢1 00 ADDL3 #4, SEQ ISb, ; 
60 38 AE DO 00205 OVL INPUT RANGE, (RO : 
50 18 AE 08 C1 00209 ADDL3 Ea_ISD, ; 
60 6B 00 0205 MOVL. (R11), TRO ; 
18 AE 0c CO 0021 ADDL2 , SEQ ISD F 
4D 6B OA €1 00 15 268: C #10. (RIT), 31$ F 
45 000000006 00 05 £0 00219 BBS #5, OWN STORAGE, 31$ : 
- - 10 i + 09 : Pere He cuaris. ” : 
11 3 0228 BEQL 3S : 
50 10 AE 10 C1 O022A ADDL3 #16, 16(SP), RO ; 
09 60 £9 0022F BLBC. (ROS, 278 ; 
51 10 AE 10 ¢1 00 g ADDL3 #16, 16(SP), R1 : 
08 61 05 £0 0 BBS #5, (R1), 28$ : 
14 AE 205¢ BF 3C 0023B 27$: MOVZWL #884, STATUS : 
23 «11 00 41 BRB 31 ; 
51 5c 6 ABs«O=D 00 43 28$: MOVL 2(R8), R1 ; 
50 30 «= AE «(=O 0024 MOVL RETURN. RANGE, RO ; 
000000006 00 16 00248 JSB [NGSPRUSHRING ; 
10 11 00251 BRB 0 : 
OE 04 BE 04 £0 00 : 29$: BBS #4, a&(SP), 31$ ; 
5c AB BD 0 PUSHL 92(R8) ; 
34 AE F 00 38 PUSHAB R TURN_RANGE F 
0000v CF 02 FB 9 5 CALLS ADD_F IXUP_VECTOR F 
FF44 31 00263 303: BRW : 
58 14 AF E9 00266 31$:  BLBC STATUS, 38$ F 
03 1 50 6A 3: BBS Wi7, (R11), 34$ : 
oor8 oF $:  BRW : 
G : B #5, OWN ORAG : 

F5 000000006 00 E 4$ BBS 5 ST E. 33$ 
- ” 00 g ies Bey wig. ( sie : 
E? 04 BE Og EO 35$: BBS #4, a4(SP), 33$ : 
8 BD PUSHL F 
34 AE F PUSHAB R TURN_RANGE ; 
0000v CF egg re A CALLS ADD_PRIVILEGED_VECTOR ; 
55 16 Ad 3 36$:  MOVAB 20(ISD), RS ; 
24 «OA p MOVL _ICB, R ; 
1 A BEQL ; 
4 14 «A? 3 ¢ MOVAB 20(R7), ICB_NAM ; 
1 65 9A 002A MOVZBL (RS), R1 ; 


a a a a ee oe ee ee ee ee ee ee ee Ee Le eS 
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N 6 
IMGSMAP_iSDS MAP_ISDS = Convert ISDs to Mapping Requests 16-Sep-1984 02:41: AX-11 Bliss- 4.0-74 1MG 
v04-001 Update return address arrays as 12-80-1382 96:43:38 YOyS SRE Inemabi Sp 63505 04 
24 ed oh 4 see te lam. R r 
50 00 oa 01 aL 2 2Q8As capes Rd. T(R5). iS, RO, 1(1CB_NAM) : 
24 3 Hy 8 37$ BE SHAB GBL_ICB ; 
000000006 00 1 Ff B6 CALLS #1, IMGSALLOCATE_ICB : 
14 AE 0 D BD MOVL RO. STAT ; 
9 16 AE CE C1 BLBS STATUS, 39$ : 
0 14 AE BO C3 38$: MOVL STATUS, RO : 
57 24 =O p0 CA 39$:  MOVL BL B, _R7 ; 
OD A? 0 ce MOVE #3, -13(R7) : 
54 146 A? oF 0 D MOV 20(R7), ICB_NAM : 
64 65 04 8 D6 SUBB3 «#4, (R5), (TCB_NAM) : 106@ 
50 $5 9A O02DA MOVZBL (R5) Q + 106 
01 AG 01 «AS 0 28 00 Dp MOVC3 RO, 1(R5), 1(ICB_NAM) : 
40 A? 68 03 04 EF 00 E EXTZV #4. #3, (R11), 62(R7) + 1065 
44 A? 10 AY DO 002E9 MOVL  16(1ISDS, 68(R7) + 1066 
05 10 AA B1 00 33 CMPW 16(R10), #5 : 1068 ; R 
15 1F OOF BLSSU 40$ ; 
11 6B 09 £0 O2F4 BS #9, (R11), 40$ + 1070 
10 A? 1 88 002F8 BISB2 #1. 16(R75 : 1073 
48 AZ D4 OO2FC CLRL. = 72¢R7) + 1074 
4C A7 7FFFFFFF 8F DO OO2FF MOVL (lected 76(R7) : 1075 
1A (11 00 07 BRB 43$ + 1067 
48 A7 38 OA 0 0309 40$:  MOVL = INPUT_RANGE, 72(R7) + 1079 
6B 95 0030 TSTB ~—- (R11) + 1081 
09 18 0031 BGEQ 41$ ; 
SO 7FFFFFFF 8F DO 0031 MOVL 4147483647, RO : 
04 11 0031 BRB 42$ : 
50 3¢ AE D0 00 18 41$: | MOVL —_INPUT_RANGE+4, RO + 1083 
4C A? 50 DO 0031F 4e8: MOVL RO R7) : 1080 
50 000000006 00 9€ 00 343$:  MOVAB  IACS$GL_WORK_LIST+4, RO > 1086 
00 80 67 OF O32A INSQUE (R7), SO(ROY F 
1D 11 0032E BRB 45$ : 1035 
48 AT 38 «AE CO 00 0 44$: CMPL —sINPUT_RANGE, 72(R7) > 1095 
2F 1B 00335 BLEQU 46$ : 
7FFFFFFF © 8F 4C A? D1 00337 CMPL 76(R7), #2147483647 : 1098 
OC 13 0033F BEQL 45$ : 
4C A? 38 «AE ODT 00341 CMPL —sINPUT_RANGE, 76(R7) : 1102 
1£ 18 0 46 BLEGU 46$ : 
4c AT 3C AE DO 0034 MOVL § INPUT_RANGE+4, 76(R7) + 1105 
1A 08 Ag E1 0 4D 45$: BBC #3, 8TISD), 473. : 1113 
15 A9 1 £0 0035 BBS #1. BCISD), 47$ : 
10 08 Ag es 6 3 BBS #2. BCISD). 47$ : 
50 24 «AE b C MOVL GB _1¢B rb : 1115 
10 Ao 4 0360 BISB2 #4,716(RO) : 
6 11 00 64 BRB 47$ > 0821 
50 2004 8F 3¢ 0 66 46$ MOVZWL #8196, RO > 1126 
38 A9 ig $C 47$ BLBS 8(ISD), 50$ > 1138 
8 AE E BLBC = FIRST_MAPPING, 48$ : 1141 
AE 04 00374 CLRL FIRST ~MAPP : 1144 
28 «AE AE DO 00377 MOVL § RETURR_RANGE, ACCUMULATED_RANGE > 1145 
FFFFFFFF 8F 000000006 0 D1 00 is 48$ CMPL  OWN_STORAGE+84, #1 > 1148 
12 0038 BNEQ 49$ : 


IMGSMAP_1SDS 
v04-001~ 


; Routine Size: 


MAP_ISDS = Convert ISDs to Mapping Requests 1b-5¢ Sep- 
Update return address arrays -Sep- 
000000006 00 9 AE D y 
3 ar AE D 49$: 
000000006 0 ry 9 oe 
000000006 00 34 =o 9 Kp 
FC94) 31 AB 50S: 


939 bytes, Routine Base: YFSSSYSIMGACT + 0138 


198¢ %3:42:38 SYS Seed iAGaab $3832; 


RETURN_RANGE, OWN_STORAGE+84 
RETURN. RANGE+4, Ow PeUMULA ED_RANGE+4 
RETURN_RANGE+4, OWN_STORAGE?88 


RETURN RANGE*4, OWN. STORAGE +88 


HE 


& 


2 


IMGSMAP_ISDS MA 
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04-001 = Convert ISDs to Mapping Requests 1$-sep-19 4 Og 4) 336 one 8 


Ss ss-32 V4.0-74 Page $8 
VILEGED_VECTOR = Install User-wWritten Ch 14-Sep-1984 (9) 


i 
SYS.SRCJIMGMAPISD.B32; 


oe 


P. 
D 


: gh 1163 } ZSBTITL "ADD_PRIVILEGED_VECTOR = Install User-Written Change Mode Vectors’ 
: 94 1165 1 ROUTINE ADD_PRIVILEGED_VECTOR (SECTION_ADDRESS, ICB_ADDRESS) = 

Bo Ree RP 

: 965 1168 Functional Description: 

: 3e$ 1190 1 ' This routine is called when the section just mapped contains 

; 948 1171 1 ! user-written change mode or message | eel After verification, the 
; 949 1128 1 ! vectors are added to the List of priv epee routines called in 

: 920 \307 : response to an unfielded change mode call. 

; $52 1179 ! Calling Sequence: 

: Bee 17? : ADD_PRIVILEGED_VECTOR (SECTION_ADDRESS, KFE_ADDRESS, ICB_ADDRESS) 
: 328 aT 4 : Input Parameters: 

: 958 1181 1 SECTION_ADDRESS = Address of section just sereed. The initial 5 Shae 
; o28 1138 : of this section contains the privileged library vector (PLV). 
; sd Vike : ICB_ADDRESS = Address of image control block that describes image. 
: 363 1186 ' Implicit Input: 

: 1188 1! -I1CB CICBSL_KFE] - Address of known file is 8 for this image. (A change 
3 1189 1°! mode vector must be installed with a PROTECT option. Message 

3 1iay ; vectors do not have to be installed. 

: 1192 1. 

: 1198 BEGIN 

3 1194 

: 1195 BIND 

3 1196 KERNEL VECTOR = CTLSA_DISPVEC, 

$ 1197 EXEC_VECTOR = CTLSA_DISPVEC + (1*256), 

; 1198 : RUNDOWN_VECTOR = CTL$A-DISPVEC + (29236), 

: 1338 MESSAGE VECTOR = CTLSA_DISPVEC + (3*256); 

: 1201 2 BIND 

3 1 8 PLV = .SECTION_ADDRESS : REF S$BBLOCK, 

: 120 ICB = - 1CB_ADDRES : $8 K, 

: ! Be KFE = .1CB CICBSL_KFE] : SBBLOCK; 

; 1 06 LITERAL 

; 1 VECTOR_SIZE = 256, ! One half page for each vector 
; 1 b8 ABSOLUTE MODE = &xX'9F', 

: 120 AT_RS_MODE = %x'65' 

3 \ 19 RSB_ABSOLUTE = (ABSOLUTE _MODE “ 8) OR OP$_RSB : UNSIGNED (16); 

; 1 12 OCAL 

: : Fe NEW_VECTOR_LOC; 

; 1215 2 CASE .PLV CPLVSL_TYPE) 

: 1 16 FROM PLVSC_TYP_CMOD TO PLVSC_TYP_MSG OF 

3 ! ! SET 

: 1 5 CPLV$C_TYP_CMOD): 


—————_———————___— 


=z 
o 


<_ 


= 
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v04=001 ADDUPRIVILEGED. VECTOR = Install Usersdritten Ch lacsepa190d SSiisise | Lets saedimemaer ee o3o%3 9 8) 
7 
98 The section contains a user-written change-mode dispatcher. The beginning 
999 of the section contains a privileged Library vector, Laid out as follows. 


! 

i 

-PLV CPLVSL_TYPE) 

! -PLV CPLVSL_VERSION] 
-PLV CPLVSL_KERNELJ 
-PLV CPLVSL_EXECJ 
i 

i 

' 

i 

1 

i 

! 

i 

i 

i 


Vector type code (PLVSC_TYP_CMOD) 
System version number (SYSS$K_VERSION) 


ooo 
Soos 
VEWN—O 


Ss 


Offset to kernel mode dispatcher 


Offset to exec mode dispatcher 
-PLV CPLV$L_USRUNDWNJ 


Offset to rundown routine 
»-PLV_L_CMOD_RFU 


Reserved Longword 
Offset to alternate RMS dispatcher 


-PLV CPLVSL_RMSJ 
-PLV CPLVSL_CHECK] 


Address check 


! If this last longword contains nonzero, its contents must be equal to 
the base address of the section. 


BEGIN 


4 
DISP_VEC ="PLV CPLVSL_KERNEL] : VECTOR (34; 


Check that the privileged shareable gy is Linked against the current 
systen and make other sanity checks on the vector contents. The ong = 


pepe pw jolololololololololelolelelololololololololol=l—l—) 
WWIII PIP NIPPON 2 2 SS SS canboea haa 
UN — OC OOBNOUSWN —OOONOUSWN—OOON 


NMAARARAAAAAA MINIMUMS 8 BS BE BE EWN ANNI IROPOPOPONOPOPOPONOND 
a VSBSSLEALENLS SOSA Fr — OOo NOM Foi OOO MOM RUIN OO DOS OO eee 


BIND 
; PLV_L_CMOD_RFU = PLV CPLVSL_USRUNDWN) + 
4 

5 

4 

4 

4 

3 

4 

5 

4 

5 

| 

& 

3 

4 

5 

4 

5 
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a ee cd ee ee ed me ed ed 8 ed dd od 8d od dd od dd 


eld insures that a position dependent privileged shareable image is 
mapped at the correct address. If the contents of the PLVSL_CHECK are 
not zero, the contents must be equal to the address of the Cell. 
op ae 
ote 3 poe CPLVS$L_VERSION) EQL 0) 
OF -1CB CICBS$V_SYS_STB) 
0 ; OR 
39 
aoe (.PLV CPLVSL_VERSION) NEQ 0) 
ok , (.PLV CPLVSL_VERSION] NEQ SYSS$K_VERSION) 
044 THEN 
b4é RETURN SS$_BADVEC; 
IF 
048 (.PLV_L_CMOD_RFU NEQ 0) 
056 OR 
33 re (.PLV CPLVSL_CHECK] NEQ 0) 
§3 76 (.PLV CPLVSL_CHECK] NEQ PLV CPLVSL_CHECK)) 


x 
$s 


WN—OOOnNOUS OF 


& 


<_ 


Couviviviviw © 


SESS SSS 


oO 
oa 


See eSeesee 


poo fofolelolelololole) 
WN — SO VCONOUSWN—"OVOOnNOu 


COONAN NNS 


SSeSaSaRIEERES 


3 


ee ee ee ee ce ee ee ec ee ee 8 ed ee a ed ee ed dd ed ed ed ed od 
S333 
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RIVILEGED_VECTOR = Insta r User-Uritten Ch 1 ~3ep-19 4 96:95:88 EeYS.SRE hema $0 63005 ce (3 
) 


>= 
oF 
ov 
xe 


THEN 
RETURN SS$_BADVEC; 


A privileged shareable image aves e installed (KFE must exist) with 
both the PROTECT and SHARED qualifiers. 


IF 


BEGIN 
IF (KFE EQL 0) 
THEN 


ELSE 
NOT (.KFE CKFESV_PROTECT] AND .KFE CKFESV_SHAREDJ) 
THEN 
RETURN SS$_PROTINSTALL; 


! The same operations are performed for all three of kernel, exec, 
! and rundown routines. 


oe wees FROM 0 TO 2 


DWDOODOOOOOOODOWDOWDOOMWMOMMDO I~ 
DWONAOMNES WN" OCONOUS WN OOOn~ 1 


s 


WEAR AR RE RRR REE R PEPER EPI EEEEE EEE PWN BBB POE AA 


IF .DISP_VEC C.DISP_INDEX] NEQ 0 
THEN 
BEGIN 


IND 
SPECIAL_VECTOR = KERNEL_VECTOR + (VECTOR_SIZE * .DISP_INDEX); 


! There must be enough room left in the vector to accommodate the 
' new JSB instruction (six bytes) and an RSB instruction (four 
! bytes to allow room for padding with zeros). 


IF (VECTOR SIZE - (.SPECIAL_VECTOR) ) LSSU (6 + 4) 
THEN RETURN SS$_VECFULL; 


oooooooeoo 


DONA VULS WN —OOONOUSwnr— 


' A special instruction sequence (RSB followed by absolute 

! addressing) is inserted at the current end of the vector. After 
!' the address fixups have been completed, the RSB will be replaced 
! with a JSB. The destination of the JSB is computed from the 

! contents and address of the current dispatch vector cell. 


NEW VECTOR LOC = SPECIAL VECTOR + .SPECIAL_VECTOR; 
-NEQ VECTOR LOC = ree o1sP ve 


WA. A.A. ANIN AAA AANA AI INI IPO POP PO PoPoNononononononorunonononunofponory 


Oe 


(.NEQ_VECTOR_LOC) + 2°= DISP VEC C.DISP_INDEX] + .DISP_VEC C.DISP_INDEX); 
(.NEWWVECTOR-LOC) + 6 = OP$_RSB; 


!' Store the offset to the new location of the RSB 
SPECIAL_VECTOR = ((.NEW_VECTOR_LOC) + 6) = SPECIAL_VECTOR; 
IACSGL_IMAGCTX CIMAGCTX$SV_SETVECTOR] = TRUE; 

END; 


a a a a a ek ed a 8 ed wt 6d = = 2 2 = = st 6 a 


WWAWAIA AI WIAA AAAI 
WAAIIPOPOPINOPONOPONO NON 


Wr — OOOO lwo 
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IMGSMAP_ISDS P_ISDS = Convert ISDs to Mapping Requests 16-Sep-1984 02:41: AX-11 Bliss-32 V4.0-74 P 1 
v04-001 DUPRIVILEGED- VECTOR = Install Usersdritten Ch locsenetone SSctoise || Lets eh Ramana eb 93543 aoe 
! An alternate RMS dispatcher aserers is saved in OWN storage. The 
} comptes tee routine that executes in kernel mode will store this 


— SL 


MEW OC OONOUNS WN“ OOONOU SW 


END; ! End of change mode section 
CPLVSC_TYP_MSG): 


4 

} -PLV CPLVSL_TYPE] ! Vector type code (PLVSC_TYP_MSG) 
-PLV_L_MSG_RFU ! Reserved longword (MBZ) 

-PLV CPLVSL_MSGDSPJ ! Offset to message dispatcher (6) 
This offset locates the JSB (R5) instruction. 
; 
' 
! 
' 
! 


i The rest of the message section header contains instructions that are 
! interpreted (not executed) by the Get Message system service. 


NOP ! The next two bytes could serve 
NOP ! as an yt | mask 
JSB (R5) ! The offset above locates this 


VE WNR OOD NOAULS WN 0 OONO UNE WN OOONOUE 


N) 
MSC7="PLVIL_MSC_OFFSET + .PLVIL_MSC_OFFSET : BYTE ; 


LITERAL 
JSB_AT_RS = 
(AT_R5S_MODE * 24) OR 
(OP$_JSB * 16) OR 
(OP$"NOP * 8) OR 
(OPS 


LOCAL 
PROT_DSC : VECTOR (2); 


! Verify the contents of the next three longwords in the vector 


DONO VE WN "OC OONAUILS WIN OO 
SNS AAA PUPP BB BB BE EE EAA 
ESTEE $ 


wr 


(.PLV.t ASG RFU NEQ 0) OR 
(.PLV-CPLVSC_MSGDSP) NEQ 6) OR 
(.PLV_L_MSG_ENTRY NEQ JSB_AT_RS) ) 


N 
RETURN SS$_BADVEC; 


el el el el cel el el el el cel el eel cl cel eel el el el cel cel elt el cel ll el cel cel el ells cl cl cl cl ls cel cecal eel cals cel cecal ls cel eld cel calls cl calls cel calls acl cel scald cael ld cals 


Be Se Oe Oe Oe Se Ge Be Ge Se Oe Se Ge Se Ge Ge Se Se Ge Se Se Se Se Fe Se Se Oe Se Se SH Os Se FH Se BH Se SH Se BH Se SESH Se SESE Se Se Se Se Sees SeSeesesese 
a ea eh am ek ee ek ed kd dt ad = = = a = a = 8 So a 
LS ee A Re te tee eS a ES Se 

w 


IF_.PLV CPLVSL ans) NEQ 0 

THEN OWN_STORAGE CRMS_BASE] = PLV CPLVSL_RMS] + .PLV CPLVSL_RMS]; 

RETURN SS$_NORMAL; ! ALL done 
4 
4 


SPoRessEssstess &° 


Oo od LO Oo wt 8 


WN =O ONO UE WN 0 OOBNOMEWN OO 


et a at et tt a a = as — 4 a — a a a a a = 2 a 4 1 td 


Se Se Ge Ge Se Se Ge Be Se Fe Ge Se Oe Oe Ge Se Se Se Se Se Ge Se Ge Se Se Be Se Se Se Se Ge Ge Se Ge Ge SH Se Ge Oe Se Se Se SH Se 
—-—-C00o0O0°ooO OOOOOVOOYD ‘OD ee ee 2 
Q~SSRLESRAVLSSSLESRANLESSLSEALARV ES BSVS AR WIS Ooo 
at 
7 
St a — 4 4 4 a ss tb — a a a ss 9 a a 2) as ss a ss 
NNN TT NUN 


kk a tt i a i ts i“ wt 9 = = a 2 4 2 as + 2 st 


onvert ISDs fe Mapping Requests 18-se $ep-1984 02:41: AX-11 Bliss-32 V4.0-74 
VEC Erbe Insta e User=Ur Stten Ch 1 350-1382 96:93:38 SYS.SRCIJI MAP ISD -B32; 

' There must be enough room Left in the vector to accommodate the new 

! JSB instruction (six bytes) and an RSB instruction (four bytes to allow 

i room for padd ng with zeros). 

IF (VECTOR_SI7Z wee VECTOR) ) LSSU (6 + 4) 


THEN RETURA SS _VECFUL 


! Find the current end of the vector and store a JSB a# instruction 
i there, pointing to the JSB (R5) instruction in the message section. 


NEW VECTOR LOC = MESSAGE vector «MESSAGE _VECTOR; 
(NEG VECTOR_LOC = RSB_ABSOL 
NEQ_VECT TOR’ LOC) + 27= atv. ul “ASG. ENTRY + 2; 
CINEWS VECTOR” toe) + 6 = OPS_RSB; 
! Store the offset to the new location of the RSB 
MESSAGE VECTOR = ((.NEW_VECTOR_LOC) + 6) = MESSAGE_VECTOR; 
IACSGL_IMAGCTX CIMAGCTXSV_SETVECTOR] = TRUE; 


! Finally, if this is a pointer (indirect) message section, the section 
i must be writable from user mode. 


PROT_DSC FS] 5 --SECTION_ADDRESS;  ! Only need to change first page 

PROT~DSC C1) = .PROT_DSC~CO) + 511; 

- -MSC EQL MSCSC_IND ! Indirect message section? 
SSETPRT ee = PROT_DSC, ! Yes, set page protection 


PRTSC" UW 
ACMODE = PSLSC_EXEC); 
RETURN SS$_NORMAL; 
END; ! End of message section 


COUTRANGE ): 
RETURN SS$_BADVEC 


YES 
! End of routine ADD_PRIVILEGED_VECTOR 


~-EXTRN SYSSSETPRT 


007C 00000 ADD_PRIVILEGED_ VECTOR: 
.WORD ~ Save R2,R3,R4,R5,R6 
6 000000006 99 9 HOVAB SSAGE_VECTOR, R6 


8 «A 5 MOVL . ADDRE S$, RO 

4 ad 0 Rov R 
D 14 as SCT ION. ADDRESS, R2 
CF 00018 CASEL # 


ingens ~1sos MAP_ISDS = Convert ISDs to Roop ing Requests 1b-seo-1 984 99:43:96 pe Bliss-3 yo. 43 


ADD-PRIVILEGED_VECTOR = Install User tten Ch 14-Sep- SYS.SRCJIMGMAPISD.B32; 
003 0007 0001C 1$: . WORD fette 
0088 31 $: BRW 1 
51 04 =A : 3 5 MOVL  4(R2), R1 
10 4 9 + 5 ter) 
F2 1 BLSS 8 
69 ° ry eee ae 
000000006 8F 2] ¢ CPL R1, #SYSSK_VERSION 
4 =A 5$ TSTL (R2) 
“A : ae 
OA BEQL 8 
50 1¢ M 4: MOV (RZ), RO 
1 Ae OD 49 CMPL (R2). R 
EP as, PE 
09 1300051 BEQL «6s 7$ 
05 10 Ad €9 00 33 BLBC VocR3) , 7$ 
06 10 a3 0 0 00 BBS #5, 16(R3), 8$ 
50 205c BF ie on 7$: MOVZWL #8284, RO 
50 D4 00062 8$: CLRL ISP_INDEX 
55 08 raid DE 00 of 9$: MOVAL B(ROTEDISP_ INDEX), RS 
D 69 TSTL. (RS) 
afb, RE BE OP vier sess 
3 F000 C64 H nt MOV KERNEL VECTORERSJ, R3 
54 65 0000010 te sual 5 #256, TR ), R 
OA 4 p i CMPL = R4. #10 
6A 1F BLSS 
51 53 63 4 ADDL3 (R3), R3, NEW VECTOR_LOC 
61 9F0S BFC MOV2wL #40769 ing Vector COC) 
02 al 5 63 ti 30 ADDL3 (R5), RS, 2(REW VECTOR_LOC) 
06 Al BO 0009 MOVL. #5, 6(NEW VECTOR LOC) 
am 24 06 al 9 stac$ (We W vecT R_LOCT, R4 
000000006 00 if 5 Al BISB2 #1. IACSGL_IMAGCTX+2 
B8 <7 F 108: AOBLEQ # igh {SP-IRDEX. 9$ 
» §} Be ihe, a 
000000006 06 18 OA 9 MOV 24iR3) OWN_ STORAGE +44 
0 9 > See +4 A 
8 60 ¢ “ appt2—s (ROD, RO 
06 =A p TSTL 4 (Res 
06 08 h ty gtR2) #6 
OA BNEQ . ~*~ 
65160101 BF 0c i CPL (R2), #1695940865 
50 2064 BF 3¢ 138 MOV WL 18292, RO 


See Se Se Se Se Se Se Se Se Se Se See Se Se Se Ge Se Se Be Se Se Se Se Se Se Se Se Se Be Se Ge Se Se Se Se Se Se Se Se Se Be Se Se Se Se Se Se Se Se Se Se Se Se Se Se 


— 


IMGSMAP_1SDS MAP_ISDS = Conver ISDs 
v04 


=001 ADDUPRIVILEGED VECTOR fostelt Usersdeteten Ch 14-00-1964 PEiFd88 | Hes SaBbLAgaAg 10-8538 


to 
- In 

i FFOO 
A 


po D00E1 14%: MOVE “sseees VECTOR, R3 
DO0ES MOVAB G(R y, 
C 9 MNEGL 
& Se oooEs Seedu Ho 
50 2034 BF ¢ 4 15$: MOV ZL y a RO 
51 53 6 C1 FS 16$:  ADDL3 RB, NEW VECTOR, Loc 
1 9F0S BF $C O00F MOVZWL tr (NEG VECTOR LOC) 
FE AI OE A ty ~2(NEW_VECTOR_LOC) 
3 ; nowt fr 
; é MOV iSite TOR, R2 
6 § SUBL3 Re, R MESSAGE VECTOR 
000000006 00 1 BISB2 #1. IACSGL_IMAGCTX+ 
AE 06 BC DO 0011 VL asect TION Spore Ss PROT_DSC 
04 AE GF OOOOOIFF BF § 00110 ADDL3 # PROT _DSC, PROT_DSC+4 
1 0 } 1 $ CMPB (RO), #1 
1 1 BNEQ 17 
7E 4 70 B VQ #4, =(SP) 
1 0D PUSHL #1 
E b4 CLRL. = (SP) 
10 AE F PUSHAB PROT_DSC 
000000006 98 8 4 4 CALLS #5, SYSSSETPRT 
5 1 0 4 C 17$: OVE #1, RO 


; Routine Size: 320 bytes, Routine Base: YFSSSYSIMGACT + 04E6 


Page 35 
: “11 Bliss-32 V4.0-74 ab 
- 241: AX-11 8 B32: 
ork br§ee 2 99:73: YS. SRCJIMGMAPISD.832; 
MESS-O5 SUS HESS AONE ASH ASSIORSCE MME ase HECTARE HLH 
=001~ ADDF IXUP_VECTOR needa 
1435 1 XSBTTL 'ADD_FIXUP_VECTOR = Add Fixup Vector ct 
i 18 : Y TIONADDRESS, BASE_ADDRESS) = 
:] 1g i ] ROUTINE ADD_FIXUP_VECTOR (SECTION. 
3} 16 1 
: is! 12 ; i Functional Description: ar 
; 121 1440 1 , ru tion that contains a fixup vector. 
Fe BL ay tn arernes oe cin tt cng i et 
: its | ! omg rag sacra he front of the List of fixups that must 
n 
: 3 ieee} The fixup vector is adteg to | Aha 
i 1geh 1aer 1 i be done after the image is ac : ve 
: 1356 i 1 ddress of the image currently being eativeted Te stevee © 
JH TBE) Be trams tama econ tig aise i 
: 1298 ! here so the name fie Mes 
: 1380 1488 being activated represents a pe ruspeged shereebio ‘nese. f 
Z : 1488 1 i this deine is not even called. nein; . tog A are performed 
st 1454 1! this rout contetns no outbound calls. Then t e hogy ed ty ay 
; 5 ee yi aa oly, rather than being postponed for la 
; : 5 1489 i is mode. 
; 
: | 1485 i Calling Sequence: : 
: 1838 183 1 ADD_FIXUP_VECTOR 
: 1240 i Formal Parameters: awe 
: 1eg 1484 les ON_ADDRESS = Base address of image section that has been iden 
i 126 ten} i hie a fixup vector. ; 
: 3 146 S - Base address of image that contains the current fixup 
5 ig DDRESS = Ba 
s ie 1269 1 | Seer doctor. 
. 156 1669 1 
i 1348 res on a 
: | r4 1478 BEGIN 
| 5 1275 § BINP GE = .SECTION ADDRESS : HAF 
2 $ 1676 we aes is SHLSTOFF] : SBBLOCK: 
5 17 sapnh f ves hareable image list, sore thee sree 
3% 2$ 1238 ! Calculate the address of section just mapped, insure furt ae ihe tune het 
3 1 14 ! within the bounds o ~ Ry page By By oy. ad ress of he image th 
; 33 1482 conteins this. gue Te this SH does not include a size, 
: 1260 12 5 i Feflects the size of an old SHL. 
: 156) 14 tae +SHLSC_LENGTH) GTRU .RANGE [1)) 
: 1368 1485 $ IF (SHL_LSSU .RANGE C0}) OR (CSHL*SHLSC_ 
i 1¢6 1686 3 TMEN RETURN 1AGS BAD_F IXUPVEC; 
i 1588 14 ; longword and SHL SIZE byte 
; the BASEVA Long byte 
68 14 phe, Fottoutes piaentitie ahead with a single PROBE instruc 
* 126 14 : < 
: 14 HLSL_BASEVA) EQL 0); 
: 1888 1491 % SASSUME ( SBYTEOFFSET (SHLSL_ 


VOUT ADDTPIAUP_VECTOR © Asa Ficup  Goecar teeesee Lis if: sep 1984 2 98:93:88 | Pes SaPbLRgaabs $5:8355 
2 13 SASSUME ( SBYTEOFFSET (SHL$B_SHL_SIZE) LEQU 512); 
, IF Nor 1 PROBEW ional ee 
74 CREF “{SBITEOE SE (HL SE Jey SIZE) 3, 


BASEVA)) 
THEN RETURN $s $s “Rtevi0; 


SHL CSHL apasevad = ,BASE_ADDRESS; 
IF SHL_SIZE] EGL 
THEN Sti oie -SHC_SIZE] = SHLSC_OLD_SHL_SIZE; 


! Insure that the caller can write into the Link longword in the fixup 
i vector and then add this fixup vector to the front of the List. 


IF NOT PROBEW (OWN STORAGE CACCESS_MODE], ZREF (4), IAF CIAFSL_FIXUPLNK)) 
THEN RETURN SS$_ACCVIO; 


IAF CIAFSL FIXUPLNKJ = .CTLSGL_FIXUPLNK; 
CTLSGL_FIXOPLNK = IAF; 
RETURN” SS$_NORMAL 


04 

1 

1 

1 

1 

1 

1 

1 
1 
1599 
1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 END; ! End of routine ADD_FIXUP_VECTOR 


RLSSSLSALAWAS 
FUN AOSRVE APL OOO ION 


PPV PPPS ASIII E ££ E~ SE 


en ae nt a a et nt ae a 2 a td at 


003C 00000 ADD of TRU NEC TOR: 


ORD Save R2,R3,R4,R5 
55 000000006 00 9E MOVAB OWN STORAGE+100, RS 
2 setae te 9 MOVAB CTLSGL_FIXUPLNK, R4 
aan of ROVE SRASLORSADORESS. 1 
50 $2 18 Ag C ADDL3 24(R9), R2, RO 
6 3 D1 CMPL RO, (RI) 
A iF BLSSU-'1$ 
53 40 A 4: OVAB 64(RO), R3 
06 «A D CMPL =e R33, 4(R1) 
8 18 BLEQU 2$ 
50 084D8C8C BFF : HOVL #139299980, RO 
60 10 65 PROBEW ON, STORAGE+100, #16, (RO) 
60 08 AC p MOVL §§BASE_ADDRESS, (RO) 
10 A TSTB =: 16 (RO) 
4 BNEQ 3$ 
10 ad § 9 MOVB #56, 16(RO) 
04 A2 04 2 PROBEW OWN. STORAGE+100, #4, 4(R2) 
4 BNEQ he 
50 C p60 MOVL #12, RO 
04 A2 4 D MOVL CTLSGL_FIXUPLNK, 4(R2) 
64 é D MOVL R2, CTICSGL_FIXUP 
0 p MOVL #1. RO 
4 RET 
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; Routine Size: 


MAP_ISDS = Convert ISDs 
ADD-FIXUP_VECTOR = Add F 
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ZSBTTL "NEXT_GBL_SEC_NAME = Update Global Section Name Suffix’ 
ROUTINE NEXT_GBL_SEC_NAME (STRING_POINTER) : NOVALUE = 


+ 
Functional Description: 


AS 


This routine performs string arithmetic on a global section name suffix of 
the form _00n by adding one to the suffix and performing the appropriate 
carries. No error checking for illegal string contents or carries beyond 
-999 is performed. (The suffix _999 is transformed to _000.) 


' 
i 
i 
Calling Sequence: 

NEXT_GBL_SEC_NAME (STRING_POINTER) 
; Formal Parameters: 

i STRING_POINTER = Address of counted ASCII string containing global 

section name 

BEGIN 

! Two synonyms are created. The string called NAME represents the entire 

! counted ASCII string for the global section name. Recall that the count field 


! does not contain the four character suffix. The substring SUFFIX represents 
! the final three characters in the global section name, usually 00n. 


1 

1 

1 

1 
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1 
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1 
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1 

1 

1 

1 

1 

1 

1 

1 

; 

BIND 

NAME = .STRING_ POINTER : VECTOR ‘ BYTE) 

SUFFIX = NAME C.RAME LO) + 2) : VECTOR €$,B8YTES; 

LOCAL 
DIGIT : INITIAL 
CARRY : INITIAL 


WHILE .CARRY DO 
a eae C.DIGIT] NEQ %C¢°9" 


WWNWIWWWnwuirorernn rr 


WN =O DONAULS WN —OOONOUS WN "OOO NOULWN— 


WA 


T] = .SUFFIX C.DIGIT) + 1; 


w 


WAws 
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END; ! End of routine NEXT_GBL_SEC_NAME 
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IMGSMAP_ISDS MAP_ISDS = Convert ISDs to Mapping Requests 1b-5e Sep-1984 02:4 AX-11 Bliss-32 V4.0-74 Page 4 
v04-001 LOAB_SEQ_IMAGE = Load an Ynage from 8 sequentie 1 730071382 98: 13; 3 SYS.SRCJIMGMAPISD.B32; - (12) ; 
; } 8 ] 6 } ZSBTTL "LOAD_SEQ_IMAGE = Load an image from a sequential device’ | 
; 9 ? ROUTINE LOAD_SEQ_IMAGE ( ICB : REF S$BBLOCK ) = 

: 1 1572 1 !4 

: } § : 7 ! Functional Description: 

: 1355 1575 1! This routine Loads all private non-dzro sections of an image from a 

; 1356 1576 1: sequential device. 

: 1357 1577 1 

; : 28 1375 ! Calling Sequence: 

; 60 1380 LOAD_SEQ_IMAGE (ICB pointer) 

: 1388 1382 : Formal Parameters: 

> 1364 3p 13 ICB = pointer to the current ICB 

; 1365 1585 1 i- 

: 1366 1586 1 

; : 44 138 BEGIN 

: 139? 138 ! This routine expects a vector of image section entries. Each entry consists 

: 1370 1590 ! of two longwords. The first is a page count. The second is a starting 

3 137) 1591 !' address with the low order bit used to indicate writeable address space. 

: 1328 1236 The read is done one page at a time under the assumption of one page records. 

; 1374 1594 i This routine also zeros the debug symbol table entry in the image header to 

; 1375 1595 ! prevent an attempt by DEBUG to read this table. 

: 1397 1299 LOCAL 

: 1378 1398 SEQ_ISDS REF VECTOR CI, 

: 1380 123) ie : NEE vee oes teas 

> 1381 1601 10SB : VECTOR R tec WORDJ, | 
3 1358 1606 NEXT ADDRESS, 

3; 138 160 STAYOS; 

 13as 180 3 BIND 

; 1386 1606 IHD_CTX = .1CB CICBSL_CONTEXT] : S$BBLOCK; 

: 1388 1608 SEQ_ISDS = .OWN_STORAGE [SEQ_LOAD_ISDS); 

: 1390 1610 2 IHD = .IHD_CTX CCTX \- IHDBUF J; 

; i 4 161) IHD CIHDSWe SYMDBGOFF)~= 0; | 
: 38 1818 ! Process ISDs until done 
: 1395 1615 UNTIL .SEQ_1SDS (0) EQL 0 | 
eo. Bk: We | 
; ++ 1818 INADR £93 = * INABR C 7 ; 12 SEQ_ISDS CO] * BYTES_PER_PAGE) - 1; | 
: 163 19 1 ! Create adrress space 
; 1408 p 1698 STATUS = SCRETVA. ( | 
3 1404 P 1624 INA INADR, | 
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Load an image from a sequentia 1 


ACMODE = PSLSC_USER ); 
IF NOT .STATUS THEN RETURN .STATUS; 


! Read the image one page at a t4me 


NEXT_ADDRESS = .INADR (0); 
INCR 1 FROM 1 TO .SEQ_ISD§ (0) 


>a 
ao 
ms 


-Sep-1 


BEGI 
STATUS = $Q10W ( 

EFN = EXESC_SYSEEN, 

CHAN = .ICB-CICBSW CHAN, 

FUNC = 10$_READVBLR, 

10SB = 10S6 

Pl = .NEXT_ADDRESS 

P2 = BYTES-PER PAGE ); 
IF NOT «STATUS THEN RETURN .STATUS; 
IF NOT .IOSB (OJ THEN RETURN .10SB (02; 
NEXT ADDRESS = .NEXT_ADDRESS + BYTES_PER_PAGE; 


! Is it a message section (can't be vector since not installed) 
IF (.SEQ_ISDS C2] AND ISD$M_VECTOR) NEQ 0 
THEN IN 


BEG 
STATUS = ADD PRIVILEGED VECTOR (INADR, ICB); 
sf NOT .STATOS THEN RETORN .STATUS 


! Is it a fixup section 
en rent aes C2] AND ISDSM_FIXUPVEC) NEQ 0 


BEGIN 
STATUS = ADD_FIXUP_VECTOR ( 
.1CB €1CBSL_BASE_ADDRESS)); 
IF NOT ~STATUS THEN RETURN .STATUS 
! Check to see if it should be left writeable 
IF (.SEQ_ISDS [2] AND ISDSM_WRT) EQL 0 
THEN 
BEGIN 
STATUS = $SETPRT ( 
INADR = INADR 
ACMODE = PSLS$C_USER, 
PROT = PRTSC_UR ); 
IF Not «STATUS TREN RETURN .STATUS; 
! Advance pointer to next ISD description 
SEQ_ISDS = SEQ_ISDS (3); 
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END; 
RETURN SS$_NORMAL; 
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~ Convert ISDs to Mapping Requests 
IMAGE = Load an image from a sequentia 
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.EXTRN 
00000 LOAD_SEQ_IMAGE: 
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one Bliss-32 v4. 
SYS.SRCJIMGMAPISD. 


SYS$Q10W 


Save R2,R3,R4,R5 
rity SP 


(RO), RO 
OWN STORAGE +40, SEQ_ISDS 


INADR 
SYSSCRETVA 


#3 

STATUS, 8$ 

INADR, NEXT_ADDRESS 
ICB, R3 

$ 

=(SP) 


-(SP) 
#512, -(SP) 
NEXT ADDRESS 
-(SPY 

10SB 
#49 
14(R3 
sugxe 
rT 
STATUS 


10SB, 4$ 
10SB, RO 


), (SP) 
$f SYSEEN, -(SP) 
YS$0 Ow 


2(R5) NEXT ADDRESS 
a_{sbs). 1; 3$ 
, B(SEQ1S6S), 6% 
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= Con 
IMAGE = Load an image from a sequentia 1 


OAS_S -Sep- SYS.SRCJIMGMAPISD.B32; (12) 
5¢ Al po A PUSHL 92(R1) ; 
€ AE 9F OOOA PUSHAB + 1660 
FECC cf 9 re A CALLS PADD. XUP_VECTOR : 
3 € AB BLBC ent + 1663 
14 08 A 6 0 A 7$: BBS (Sea ISDS), 9$ : 1668 
= 5 DD PUSHL ris. <(8 Ss Snes 
93 4 88 RL -(SP) : 
18 AE OF A PUSHAB INADR : 
000000006 9 F BD CALLS #5 SYSSSETPRT : 
E C4 gs: BLBC. STATUS, 1 : 1675 
2 C § C7 9$: ADDL2 #12, SEQ_ ; 1680 
FF F CA BRW 1$ : 161 
50 0 0 8 198 Bove #1, RO 3 1o58 


; Routine Size: 209 bytes, Routine Base: YFSSSYSIMGACT + O6AF 


F 8 
IMGSMAP_ISDS MAP_ISDS = Convert ISDs to Mapping Requests 16-Sep-1984 02:4 AX=11 Bliss-32 V Page 44 
v04-001 LOAD_SEQ_IMAGE = Load an lnege fren $ sequentie 1 = 30071382 9: 13 3 SYS.SRCIJI MAP ISD “Bao; . ad 
; 1468 16 7 1 END ! End of module IMGACT_MAP_ISDS 
: re 1 : 1 
; 1470 16 0 ELUDOM 
H PSECT SUMMARY 
; Name Bytes Attributes 
: YFSSSYSIMGACT 1920 NOVEC, WRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
; Library Statistics 
‘Ses See ee et eee Syabol$ o---e--- Pages Processing 
5 File Total ioaded Percent Mapped Time 
: _$255$DUA28:CSYSLIBILIB.L32;1 18619 90 0 1000 00:01.8 
; COMMAND QUALIFIERS 
3 BLISS/CHECK=(FIELD, INITIAL ,OPTIMIZE)/LIS=LISS$: IMGMAPISD/OBJ=0BJ$: IMGMAPISD MSRC$: IMGMAPISD/UPDATE=(ENH$: IMGMAPISD) 
3; Size: 1896 coge + 24 data bytes 
; Run Time: 
; Elapsed Time: ‘te. 
3 Lines/CPU Min 461 
3 Lexenes/CPU-Rin: 20722 
3 penory © Used: 325 pages 
; Compilation Complete 
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